home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Celestin Apprentice 5
/
Apprentice-Release5.iso
/
Environments
/
PowerMacOberon feb96
/
System
/
Kepler8.Sym
< prev
next >
Wrap
Text File
|
1995-11-30
|
2KB
|
7 lines
˜∂‘⁄øKepler8 AttrRect ¿Ÿ’øKeplerGraphs |ObjectDesc Object ¸{self ¬⁄‘øKeplerPorts Port ˚{P Draw ¸{self ã≈¶¶Files res eof tRider ˚{R Read ¸{self ˚{R Write nofpts Star
p Constellation next tConsDesc ¸{self ˚{R Read ¸{self State ¸{self ˚{R Write texture lineWidth shadow shadowWidth corner $| AttrRectDesc ¸{self ˚{f Draw ¸{self ˚{r Read ¸{self ˚{r Write CircleIntersect x y refcnt sel next xStarDesc ¸{self ˚{P Draw ¸{self ˚{R Read ¸{self ˚{R Write c l PlanetDesc Planet ¸{self Calc ¸{self ˚{P Draw ¸{self ˚{R Read ¸{self ˚{R Write x CircleIntersectDesc ¸{self Calc EllipIntersect t EllipIntersectDesc ¸{self Calc ! FilledCircle texture p""" FilledCircleDesc !¸{self ˚{f " Draw !¸{self ˚{r "Read !¸{self ˚{r "Write # RectIntersect l$$$ RectIntersectDesc #¸{self $Calc NewAttrRect
NewCircleIntersect NewEllipseIntersect NewFilledCircle NewRectIntersect ܵàflDisplay %Frame % dsc %next X
Y W H %¸{f x&&FrameMsg &˚{msg 'Handler 'handle t((FrameDesc x0 y0 scale ext ($|)) )PortDesc ¸{P ˚{x ) CX ¸{P ˚{y )CY ¸{P ˚{X )Cx ¸{P ˚{Y )Cy ¸{P ˚{x ˙{y ˘{r ¯{col ˜{mode )DrawCircle ¸{P ˚{x ˙{y ˘{a ¯{b ˜{col ˆ{mode )DrawEllipse ¸{P ˚{x1 ˙{y1 ˘{x2 ¯{y2 ˜{col ˆ{mode )DrawLine ¸{P ˚{x ˙{y ˘{w ¯{h ˜{col ˆ{mode )DrawRect ¸{P ˚{x ˙{y *˘{s êØâflFonts +Font +˜{font ˆ{col ı{mode ) DrawString ¸{P ˚{x ˙{y ˘{r ¯{col ˜{pat ˆ{mode )
FillCircle ¸{P ˚{x1 ˙{y1 ˘{x2 ¯{y2 ˜{x3 ˆ{y3 ı{x4 8y4 <col ¿ pat ƒ mode )
FillQuad ¸{P ˚{x ˙{y ˘{w ¯{h ˜{col ˆ{pat ı{mode ) FillRect ) !"#$%(
,Name , name height "minX $maxX &minY (maxY -Font -,raster 0 4|..FontDesc +. |//Bytes -/
